with Ada.Text_IO; use Ada.Text_IO;
with System.Pool_Local;

package BigNumberP is

   type NumberCharacter is new Character range '0' .. '9';
   type BigNumber is array (Positive range <>) of NumberCharacter;
   type BA is access all BigNumber;

   --X : System.Pool_Local.Unbounded_Reclaim_Pool;
   --for BA'Storage_Pool use X;

   function StringToBigNumber (s : String) return BA;
   function BigNumberToString (b : BA) return String;
   procedure BigNumberShow (b : BA);
   procedure BigNumberAdd (a : not null BA; b : not null BA; c : in out BA);

end BigNumberP;
